info <- dicom_info("11_DICOM")
info %>% dplyr::select(-file_name)
labels4 = c(
  "Base image",
  "Segmented fat",
  "Subcutaneous fat",
  "Visceral fat"
)

11 * 4 multichannel DICOM images grouped by image_id